home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / CC_C / 1116.ZIP / TOOLKIT.ARC / BLANKING.C < prev    next >
Text File  |  1979-12-31  |  783b  |  26 lines
  1.  
  2. /* BLANKING.C */
  3.  
  4. #include blanking.h
  5. #include cursor.h
  6. #include cls550.h
  7.  
  8. main()
  9.        {
  10.          int lcv; lcv = 0;
  11.          cls550(); puts("A>blanking"); putchar(13);
  12.          while(lcv < 20)
  13.                          {
  14.                            puts("|.........|.........|..........|.........");
  15.                            puts("|.........|.........|..........|.....");
  16.                            putchar(13); ++lcv;
  17.                          }
  18.          blank(5,21,10,50);
  19.          nochars(11,25,15,75);
  20.          cursor(13,45); puts("MONOCHROME MODE");
  21.          cursor(7,22); puts("If you see a message in the");
  22.          cursor(8,22); puts("other block then you are NOT");
  23.          cursor(9,22); puts("in COLOR MODE.");
  24.          cursor(21,0);
  25.        }
  26.